﻿
Public Class TraCuuSanBay
    Inherits DataProvider

    Public Function dtload() As DataSet
        Dim sqlstr As String = "SELECT * FROM SanBay"
        Return GetDT(sqlstr)
    End Function

    Public Function delsb(ByVal masb As Integer) As Integer
        Dim sqlstr As String = "DELETE FROM SANBAY WHERE ID=" + masb.ToString
        Return Me.SaveData(sqlstr)
    End Function
    Public Function Findsb(ByVal dtosb As DTO.TraCuuSanBay) As DataSet
        Dim sqlstr As String = "SELECT * FROM SANBAY WHERE TEN Like '%" + dtosb.TenSanBay + "%' AND ID LIKE '%" + dtosb.MaSanBay + "%'"
        Return Me.GetDT(sqlstr)
    End Function
End Class